function ret = test_chi_cuadrado( seq )
	#gradLib secciones.
	#Test chi cuadrado al 5% de significacion, con 9 grados de libertad. Valor de tablas:
	chi_9_005 = 16.92;
	gradLib = 10;

	O = 0;
	O(gradLib) = 0;
	#O = [0];
	
	for i = 1:length(seq)
		bin = floor(seq(i)*gradLib)+1;
		O(bin)++;
	endfor

	E = length(seq)/gradLib;

	chi_0 = 0;

	for i = 1:gradLib
		chi_0 = chi_0 + power(O(i) - E,2)/E;
	endfor

	if chi_0 >= chi_9_005
		ret = 0;
	else
		ret = 1;
	endif
endfunction
